home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / dev / mui / MCC_SpeedBar.lha / MCC_SpeedBar / Install < prev    next >
Encoding:
Text File  |  2002-02-06  |  1.9 KB  |  67 lines
  1. ; $VER: SpeedBar_Install 12.3 (6.2.2002)
  2.  
  3. (procedure P_SetMessages
  4.  
  5.     (if (= "italiano" @language)
  6.         (
  7.             (set #AskMCCsDirPromptMsg           "Scegli la directory dove installare le classi MUI")
  8.             (set #AskMCCsDirHelpMsg             "Nella directory che sceglierai, verranno copiate le classi MUI.")
  9.  
  10.             (set #CopyingMCCsMsg                "Sto copiando le classi MUI...")
  11.         )
  12.         (
  13.             (set #AskMCCsDirPromptMsg           "Select the drawer where you want to copy the MUI classes")
  14.             (set #AskMCCsDirHelpMsg             "In the drawer you supply here, there will be installed the MUI classes.")
  15.  
  16.             (set #CopyingMCCsMsg                "Copying or Updating MUI classes")
  17.         )
  18.     )
  19. )
  20.  
  21. (procedure P_AskMCCsDir
  22.     (set #MCC-dir
  23.         (askdir
  24.             (prompt #AskMCCsDirPromptMsg)
  25.             (help #AskMCCsDirHelpMsg)
  26.             (default @default-dest)
  27.         )
  28.     )
  29. )
  30.  
  31. (procedure P_CopyMCCs
  32.     (working #CopyingMCCsMsg)
  33.     (set #localMCCSDir (tackon #source-dir "MUI/"))
  34.     (foreach #localMCCsDir "#?"
  35.         (copylib
  36.             (source (tackon #localMCCsDir @each-name))
  37.             (dest @default-dest)
  38.         )
  39.     )
  40. )
  41.  
  42. (procedure P_CopyCatalogs
  43.     (set #catSourceDir (tackon #source-dir (tackon "Catalogs" @language)))
  44.     (set #catDestDir (tackon "Locale:" (tackon "Catalogs" @language)))
  45.     (if (= (and (= (exists (#catSourceDir)) 2) (= (exists (#catDestDir)) 2)) 1)
  46.         (foreach #catSourceDir "#?"
  47.             (copylib
  48.                 (source (tackon #catSourceDir @each-name))
  49.                 (dest #catDestDir)
  50.             )
  51.         )
  52.     )
  53. )
  54.  
  55. (set @default-dest "MUI:LIBS/MUI/")
  56. (set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon)) (expandpath @icon)))
  57.  
  58. (P_SetMessages)
  59.  
  60. (complete 0)
  61. (P_AskMCCsDir)
  62. (set @default-dest #MCC-dir)
  63. (P_CopyMCCs)
  64. (complete 80)
  65. (P_CopyCatalogs)
  66. (complete 100)
  67.